Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub cmd_ok_Click() If Range("A10") = 1 Then Range("feuil2!C41:C49,E41:E49").Copy Range("feuil1!C10:C18,E10:E18").Paste Else Range("feuil1!C10:C18,E10:E18").Clear End If End Sub