Bonjour Yvouille,
pour recopier, je ferais ceci
Sub recopieplagesfusionnees()
Dim plage As String, lig%, col%
Sheets("Provisoire").Select
For lig = 5 To 10
For col = 3 To Range("GD5").Column
' la cellule fait-elle partie d'une fusion ?
If Cells(lig, col).MergeCells Then
' je sauvegarde l'adresse (c'est du texte-string)
plage = Cells(lig, col).MergeArea.Address
' la cellule est-elle la première ?
If Cells(lig, col).Address = Split(plage, ":")(0) Then
' je défusionne
Range(plage).UnMerge
' je copie la première cellule
Cells(lig, col).Copy Destination:=Sheets("Base").Cells(lig, col)
' je refusionne sur les 2 feuilles
Sheets("Base").Range(plage).Merge
Range(plage).Merge
End If
End If
Next
Next
End Sub
la feuille cible ne doit pas comporter de fusion dans la zone considérée, sinon défusionner auparavant cette zone