Bonsoir,
Le code à mettre dans le bouton import:
Private Sub Import_Click()
Dim Ln, i As Integer
Set R = Sheets("REMISE")
Set D = Sheets("DONNEES")
Ln = D.Range("C" & Rows.Count).End(xlUp).Row
For i = 3 To Ln
With R
.Cells(i + 5, "B") = D.Cells(i, "C").Value 'num de chèque
.Cells(i + 5, "C") = D.Cells(i, "D").Value 'banque
.Cells(i + 5, "D") = D.Cells(i, "E").Value 'réservataire
.Cells(i + 5, "E") = D.Cells(i, "F").Value 'n° compte
.Cells(i + 5, "F") = D.Cells(i, "J").Value 'valeur
.Cells(i + 5, "L") = D.Cells(i, "G").Value 'app
.Cells(i + 5, "N") = D.Cells(i, "H").Value 'im
.Cells(i + 5, "P") = D.Cells(i, "I").Value 'ilot
End With
Next i
End Sub
Bonne continuation