Bonjour j ai simplifié mon code au maximum pour comprendre ou se situait mon problème, le voici :
En vulgarisant, je voudrais que pour chaque cellule de la colonne r, si la cellule est égale à 5 par exemple qu'elle prenne la valeur 4.
J'ai les message d'erreur suivant : "Erreur '13' incompatibilité de type", je débuté sur VBA, veuillez m'excuser ^^'
Merci d'avance pour vos réponses

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
Sub marine()
 
Dim r As Integer
Dim cellule As Range
 
Cells(4, 5).Select
r = ActiveCell.Row
MsgBox (r)
Workbooks("blabla.xlsm").Sheets("Feuil2").Cells(r, r).Value = r
For Each cellule In Columns(r)
If cellule.Value = 5 Then
cellule.Value = 4
End If
Next
 
End Sub