Bonjour,

Je voudrais modifier cette macro pour que au lieu que l?incrément se fasse automatiquement jusqu?à ce que les valeurs de i soit fini cela se fasse manuellement avec un bouton que je compte rajouter à mon fichier>

Voici la macro
Sub fonction ()
Dim i As Integer

For i = 3 To Sheets("Sheet3").Range("A65536").End(xlUp).Value

EN = Worksheets("Analyse manuelle").range("B4")
Cod = woksheets("Analyse manuelle").range("J3")
Ratio = worksheets("Analyse manuelle").range("J13")
b = worksheets("analyse manuelle").range("K13")
r2 = worksheets("analyse manuelle").range("M13")
Tnc = worksheets("analyse manuelle").range("M15")
ecart = worksheets("analyse manuelle").range("I27")

sheets("sheet3").cells(i , 2).value = EN
sheets("sheet3").cells(i , 3).value = Cod
sheets("sheet3").cells(i , 4).value = Ratio
sheets("sheet3").cells(i , 5).value = b
sheets("sheet3").cells(i , 6).value = r2
sheets("sheet3").cells(i , 7).value = Tnc
sheets("sheet3").cells(i , 8).value = ecart

next i
end sub

je pense qu'il faut supprimer le for mais je ne vois pas du tout comment faire..