Re : Copie des valeurs + formats de cellule
voilà, mais je n'y comprends pas grand chose!
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim Plage As Range, Cellule As Range, Recherche As Range
If Sh.Name = "Devis" Then
Set Plage = Sh.Range("C18:H40")
ElseIf Sh.Name = "Appro" Then
Set Plage = Sh.Range("B2:E100")
ElseIf Sh.Name = "Métrés" Then
Set Plage = Sh.Range("A1:B1000")
Else
Exit Sub
End If
For Each Cellule In Plage
If Not Cellule.Value = "" Then
Set Recherche = Sheets("Ouvrages").Range("D
,G:G").Find(Cellule, lookat:=xlWhole)
If Not Cellule Is Nothing Then
Cellule.Font.Size = Recherche.Font.Size
Cellule.Font.Bold = Recherche.Font.Bold
Cellule.Font.Color = Recherche.Font.Color
End If
End If
Next Cellule
End Sub