Re : Transfert de données
Bonjour,
je ne peux que "plussoyer" au sujet des cellules fusionnées à proscrire !!!
essaye ceci :
Sub CopySem()
Dim msem As Long
msem = Sheets("semaine").[D4]
With Sheets("mois").Range("K6:X6")
Set c = .Find(What:=msem, LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
Set desti = c.Offset(1, 0)
Sheets("semaine").Range("I7:I13").Copy Destination:=desti
End If
End With
End Sub