C'est presque parfait, sauf qu'il imprime autant de page que le nombre de lignes dans le tableau, meme si qu'une seule ligne est remplie.
Private Sub CommandButton1_Click()
For ln = 8 To Range("C" & Rows.Count).End(xlUp).Row
Sheets("Check-List").Range("H24") = Sheets("Funds").Range("C" & ln)
Sheets("Check-List").Range("J24") = Sheets("Funds").Range("D" & ln)
Sheets("Check-List").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Next ln
End Sub