XL 2010 Collage avec condition cellule

Sub Isertion()
    Application.ScreenUpdating = False
    Site = [A13]: Mois = [B13]
    With Sheets("Base de données")
        For L = 4 To .Range("A65500").End(xlUp).Row
            If .Cells(L, "B") = Mois And .Cells(L, "A") = Site Then
                .Range(.Cells(L, "C"), .Cells(L, "G")) = [C13:G13].Value
            End If
        Next L
    End With
End Sub

Sub Rectangle1_Clic()
    Dim Lig&
    Application.ScreenUpdating = False
    Lig = [MATCH(A13&B13, 'Base de données'!$A$1:$A$99&'Base de données'!$B$1:$B$99,0)]
    Select Case Feuil2.[a10]
    Case "Eau"
        [c13:d13].Copy
        Feuil1.Range("h" & Lig).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    Case "Electricité"
        [c13:g13].Copy
        Feuil1.Range("c" & Lig).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    Case "Gazoil"
        [c13:e13].Copy
        Feuil1.Range("j" & Lig).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    Case "Gaz"
        [c13:d13].Copy
        Feuil1.Range("m" & Lig).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    Case "CO²"
        [c13:d13].Copy
        Feuil1.Range("O" & Lig).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    End Select
    [c13:g13].ClearContents
End Sub