Sub Macro1()
' Macro1 Macro - Copier Coller avec formules With ThisWorkbook
With Sheets("Feuil1")
For i = 1 To .Range("A" & Rows.Count).End(xlUp).Row
'MsgBox "Valeur du compteyr i : " & i & Chr(10) & "Valeur de la cellule : " & .Cells(i, 1)
If .Cells(i, 1) = "" Then .Range("A" & i).Select: Exit For
Next i
End With
For j = 1 To 11
Sheets("Feuil2").Select
Cells(13, j).Select
'MsgBox Cells(13, j)
Selection.Copy
Sheets("Feuil1").Select
Cells(i, j).Select
'MsgBox Cells(i, j)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next j
Application.CutCopyMode = False
End Sub
[COLOR=#333333][/COLOR]