Bonjour, voila je débute et vraiment pas très douée
Je veux coloré en bleu et écrire en blanc dans la feuille "HEURES RECAP"si dans la feuille "CP RECAP" il y a une valeur <>de 0 , je précise que les tableaux étant identique l'action est sur la même cellule

je veux le faire sur 50 lignes et de la colonne 6 à 31

voici ma macro qui ne fonctionne pas
L'erreur est sur la ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveCell.Offset(1, -31).Select
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub essai()
'
' essai Macro
 
    Range("F13").Select
    Sheets("CP RECAP").Select
    Range("F13").Select
 
    l = 13
    c = 6
For a = 1 To 50
For i = 1 To 31
 
     If Cells(l, c).Value = "0" Then ActiveCell.Offset(0, 1).Select Else l1 = ActiveCell.Row And c1 = ActiveCell.Column
 
      Sheets("HEURES RECAP").Activate
 ActiveSheet.Cells(13, 6).Select
   '
' couleurbleu Macro
'
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
 
Next i
ActiveCell.Offset(1, -31).Select
Next aEnd Sub
Merci si quelqu'un peut m'aider.