Un coup de pousse sur un code

Sub Macro4() ‘Copier/coller sur la même feuille j’ai une liste produit, une collée pour print
With sheets("Mareyeurs")
If Range("c8").Value = "" Then 'c8 si c8 est vide
Selection.Copy destination:=Range("c8")

Else 'sinon la première cellule vide de la colonne c
End If
Selection.Copy destination:=Range("c65536").End(xlUp).Offset(1, 0)
With Cells.Interior
If Range("c9:c40").ClearFormats Then ‘je retire le format de la cell collée
Range("c9:c40").Font.Size = 8 ‘la taille de la police en 8 sur (c9 :c40)

Ici je voudrais ajouter renvoyer à la ligne auto dans les cells de la même zone

End If
End With
End With
End Sub

Cliquez pour agrandir...