Bonjour tout le monde,

Je voudrais copier des valeurs d'un tableau à un autre tous les premiers du mois
j'ai essayé ce code mais ça marche pas

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
    IF(TODAY()=DATE(YEAR(TODAY()),MONTH(TODAY()),1) then
    Sheets("Data").Select
    range("T3:AX3").Select
    Selection.Copy
    Sheets("Data Validation").Select
    range("H9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
Merci pour votre aide