Sub Clic()
Dim cellule As Range
image = Application.Caller ' récupération du nom du logo (du numéro de la ligne sur laquelle il se trouve)
' si image> 1000 c'est un des 6 drapeaux présents sur la feuille
With Sheets("Achat(s)")
Select Case image
Case "Allemandes"
.[B1] = .[B1] + [C4] + [C3]
.[F1] = .[F1] + [C5] + [C3]
.[H2] = .[H2] + [C6] + [C3]
.[R4] = .[R4] + [C7] + [C3]
Range("C3:C7").ClearContents
Case "Britaniques"
.[D1] = .[D1] + [C9] + [C8]
.[J1] = .[J1] + [C10] + [C8]
.[L1] = .[L1] + [C11] + [C8]
Range("C8:C11").ClearContents
Case "Françaises"
.[H1] = .[H1] + [C13] + [C12]
.[N1] = .[N1] + [C14] + [C12]
.[R1] = .[R1] + [C15] + [C12]
.[B2] = .[B2] + [C16] + [C12]
.[J2] = .[J2] + [C17] + [C12]
.[T2] = .[T2] + [C18] + [C12]
.[F3] = .[F3] + [C19] + [C12]
.[H3] = .[H3] + [C20] + [C12]
.[L3] = .[L3] + [C21] + [C12]
.[R3] = .[R3] + [C22] + [C12]
.[H4] = .[H4] + [C23] + [C12]
Range("C12:C23").ClearContents
Case "Japonaises"
.[P1] = .[P1] + [C25] + [C24]
.[P2] = .[P2] + [C26] + [C24]
.[J3] = .[J3] + [C27] + [C24]
.[D4] = .[D4] + [C28] + [C24]
.[F4] = .[F4] + [C29] + [C24]
.[J4] = .[J4] + [C30] + [C24]
Range("C24:C30").ClearContents
Case "drapeau suivant" ' <---- à renommer
' ecrire ici la procédure liée au drapeau suivant
'
' et continuer pour les autre drapeaux
Case Else
Exit Sub
End Select
End With
' ------------ modif apportée --------------------------
For Each cellule In Sheets("Achat(s)").Range("B1:T4")
If IsNumeric(cellule) = True Then cellule.NumberFormat = "General"
Next cellule
' ------------------------------------------------------
End Sub