Bonjour,
Voilà j'ai une boucle qui fonctionne très bien, sauf que j'aimerais lors de la copie un collage spécial valeurs. J'ai bien essayé de lui mettre un Special Paste, mais je dois mal l'intégrer parce qu'à chaque fois ça ne va plus...
Quelqu'un peut-il m'aider ?
Dim Col As Byte
Sheets("Récap Mois").Activate
Col = 3
Do
If Cells(1, Col) = "" Then
Sheets("Présence").Range("C1:F80").Copy Cells(1, Col)
Exit Do
Else
Col = Col + 4
End If
Loop
'Remise à blanc de la feuille Présence
Range("A1").Select
Sheets("Présence").Select
Range("C5:G77").Select
Range("C5").Activate
Selection.ClearContents
Range("A1").Select
End Sub