Autres Si en G on trouve "COMPL" alors colorer de vert F (XL 2007)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 7 Then Exit Sub
    If Not IsEmpty(Target) Then
        Target.Offset(0, 1) = Date
        Target.Offset(0, -1).Interior.color = vbYellow
        Target.Offset(0, -1).Font.Bold = True
    Else
        Target.Offset(0, 1).ClearContents
        Target.Offset(0, -1).Interior.color = xlNone
        Target.Offset(0, -1).Font.Bold = False
    End If
End Sub